home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / tcp / dyndns.lha / DynDNS next >
Text File  |  1997-04-28  |  1KB  |  44 lines
  1. /*
  2.  * DynDNS.rexx v1.0b by Giorgos Stagakis (gstag@geocities.com)
  3.  */
  4.  
  5. /*** Configuration ***/
  6.  
  7. /* Your Monolith user ID */
  8. userid = "fish17"
  9.  
  10. /* Your security code */
  11. sec1 = "88" /* Part 1 */
  12. sec2 = "88" /* Part 2 */
  13. sec3 = "88" /* Part 3 */
  14.  
  15. /* Your Monolith hostname: <host>.dyn.ml.org */
  16. host = "gallant"
  17.  
  18. /* Your machine type (One word) */
  19. mactype = "Amiga1200"
  20.  
  21. /* Your operating system (One word) */
  22. os = "AmigaOS3.0"
  23.  
  24. /* Is your machine a WWW server? (Yes/No) */
  25. www = "Yes"
  26.  
  27.  
  28.  
  29. /*** Main program ***/
  30.  
  31. parse arg ipaddr
  32. if ipaddr = '' then do
  33.     address command 'ifconfig ppp0 >T:tmp.ip'
  34.     if ~open(1,'T:tmp.ip','R') then exit
  35.     str = readch(1,65535)
  36.     parse var str . 'inet' ipaddr .
  37.     call close(1)
  38.     address command 'delete T:tmp.ip >nil:'
  39. end
  40. get = '/mis-bin/freed.cgi?mid='userid'&sec1='sec1'&sec2='sec2'&sec3='sec3'&do=mod&type=machine&domain='host'&db=dyn.ml.org&ipaddr='ipaddr'&mactype='mactype'&os='os'&WWW='www'&agree=agree'
  41. if ~open(1,'TCP:scripts.ml.org/80') then exit
  42. call writeln(1,'GET 'get' HTTP/1.0');call writeln(1,'')
  43. call close(1)
  44.